home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
QS4.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
30 lines
0 TEXT : HOME
9 PRINT : PRINT : PRINT
10 PRINT "If you were the coach of the Minnesota Vikings football team, what kind of player would you choose to block for the quarterback?"
12 PRINT : PRINT
14 PRINT " a) A massive player"
15 PRINT
16 PRINT " b) A less massive player"
17 PRINT
18 PRINT " c) It makes no difference."
19 PRINT
20 PRINT " d) I hate football."
21 PRINT : PRINT
30 GET KY$
39 HOME : PRINT : PRINT : PRINT : PRINT : PRINT
40 IF KY$ = "c" OR KY$ = "C" THEN GOSUB 110
50 IF KY$ = "a" OR KY$ = "A" THEN GOSUB 100
60 IF KY$ = "b" OR KY$ = "B" THEN GOSUB 120
70 IF KY$ = "d" OR KY$ = "D" THEN GOSUB 130
80 IF KY$ < >"a" OR KY$ < >"A" OR KY$ < >"b" OR KY$ < >"B" OR KY$ < >"d" OR KY$ < >"D" THEN GOSUB 140
100 PRINT "Right!! You know your football. Now, for more physics."
102 GOSUB 200: PRINT CHR$(4);"run qs5"
110 PRINT "Yes, it does make a difference. Try again."
112 GOSUB 200: GOTO 0: RETURN
120 PRINT "Please do not consider being a football coach. Try again."
122 GOSUB 200: GOTO 0: RETURN
130 PRINT "Tough luck! Try again anyway."
132 GOSUB 200: GOTO 0: RETURN
140 PRINT "Please enter only A, B, C, or D!!"
142 GOSUB 200: GOTO 0: RETURN
200 FOR I = 0 TO 3000: NEXT : RETURN